/* * *  OUTPUT A TELEPHONE NUMBER. * * */
/* THIS ROUTINE FORMATS A TELEPHONE NUMBER FOR DISPLAY. */
OUT_TEL: PROC (TEL) RETURNS(CHAR(14));
	DCL	TEL CHAR(10);
	DCL	WRKTEL CHAR(14);

	WRKTEL=' ';
	IF TEL=WRKTEL THEN	/* NULL INPUT */
	   RETURN(WRKTEL);
	IF SUBSTR(TEL,1,3)='   ' THEN	/* GET AREA CODE. */
	   ;
	ELSE
	   WRKTEL='('||SUBSTR(TEL,1,3)||') ';

	SUBSTR(WRKTEL,7,3)=SUBSTR(TEL,4,3); /* GET PREFIX. */
	SUBSTR(WRKTEL,10,1)='-';
	SUBSTR(WRKTEL,11,4)=SUBSTR(TEL,7,4); /* GET NUMBER. */
	RETURN(WRKTEL);
	END OUT_TEL;

